home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / pack / imploder / imp_packer.s < prev    next >
Text File  |  1980-01-03  |  22KB  |  1,207 lines
  1. ******************************************************************************
  2. * IMP! (IMP!) Multi-selection capable data-compressor
  3. * ----------------------------------------------------------------------------
  4. * Just a simple reqtools front end tacked onto the Imploder algorithm for
  5. * data compression. Decent compression, very good on decompression speed.
  6. *
  7. * THE IMP! ALGORITHM IS FULLY *FREEWARE* AND IS SUPPLIED WITH THE FREEWARE
  8. * BEERMON MONITOR PACKAGE. YOU CAN USE IT IN ANY PRODUCTIONS YOU LIKE 
  9. ******************************************************************************
  10. HeaderID    =    "IMP!"        ;also recognised as "ATN!"
  11.  
  12.         rsreset
  13. _DOSBase:    rs.l    1
  14. _RTBase:    rs.l    1
  15. ProgHandle:    rs.l    1
  16. ProgBuff:    rs.l    1
  17. ProgSize:    rs.l    1
  18. TotalGain    rs.l    1
  19. filereq        rs.l    1
  20. volreq        rs.l    1
  21. flist        rs.l    1
  22. Savename    rs.l    1
  23. PackedSize    rs.l    1
  24. Array        rs.l    6
  25. valbuf:        rs.b    20
  26. hexbuff        rs.b    10
  27. Buffer        rs.b    128
  28. filename    rs.b    34
  29. finalname:    rs.b    256
  30. volpath:    rs.b    128
  31. vars_SIZEOF    rs.b    0
  32.         rsreset
  33.  
  34.         section    multiselect,code
  35.  
  36.         include    'includes:misc/os3_gst.i'
  37.  
  38.         link    a4,#-vars_SIZEOF
  39.         move.l    #vars_SIZEOF-1,d7
  40. clear_bss:    clr.b    -(a4)
  41.         dbra    d7,clear_bss
  42.         
  43. *-------------- Open dos library..
  44.  
  45.         move.l    4.w,a6
  46.         lea    DOSName(pc),a1
  47.         CALL    OldOpenLibrary
  48.         move.l    d0,_DOSBase(a4)
  49.         beq.w    NoLib
  50.  
  51.         lea    About.txt(pc),a0
  52.         bsr.w    putstr
  53.  
  54. *-------------- Open reqtools library..
  55.  
  56.         lea    ReqName(pc),a1
  57.         CALL    OldOpenLibrary
  58.         move.l    d0,_RTBase(a4)
  59.         beq.w    closedos
  60.         move.l    d0,a6
  61.  
  62. *-------------- Allocate a Reqtools File Requester
  63.  
  64.         move.l    #RT_FILEREQ,d0
  65.         suba.l    a0,a0
  66.         CALL    rtAllocRequestA
  67.         move.l    d0,filereq(a4)
  68.         beq.w    ok17
  69.  
  70. *-------------- multiselect some filenames...
  71.  
  72.         move.l    filereq(a4),a1
  73.         lea    filename(a4),a2
  74.         lea    Text66(pc),a3
  75.         lea    Tags9(pc),a0
  76.         CALL    rtFileRequestA
  77.         move.l    d0,flist(a4)
  78.         beq.w    ok16
  79.  
  80. *-------------- allocate a volume requester..
  81.  
  82.         move.l    #RT_FILEREQ,d0
  83.         sub.l    a0,a0
  84.         CALL    rtAllocRequestA
  85.         move.l    d0,volreq(a4)
  86.         beq.w    freelist            ;free multilist..
  87.  
  88. *-------------- select destination path..
  89.  
  90.         lea    volpath(a4),a1
  91.         clr.b    (a1)
  92.  
  93.         suba.l    a2,a2
  94.         lea    Text89(pc),a3
  95.         lea    Tags11(pc),a0
  96.         move.l    volreq(a4),a1
  97.         CALL    rtFileRequestA
  98.         tst.l    d0
  99.         beq.s    vol_error
  100.  
  101. *-------------- selection ok...
  102.  
  103.         move.l    volreq(a4),a0
  104.         move.l    rtfi_Dir(a0),a0
  105.         lea    volpath(a4),a1
  106. get_volname:    move.b    (a0)+,(a1)+
  107.         bne.s    get_volname
  108.         bra.s    vol_free
  109.  
  110. *-------------- selection cancelled or failed..
  111.  
  112. vol_error    lea    NoPath.txt(pc),a0
  113.         bsr.w    putstr
  114.  
  115. vol_free    move.l    volreq(a4),a1
  116.         CALL    rtFreeRequest
  117.  
  118. *-------------- process all filenames in the list...
  119.  
  120.         clr.l    TotalGain(a4)
  121.         
  122.         move.l    flist(a4),a6
  123. nextfile:
  124.         lea    finalname(a4),a5
  125.         move.l    a5,a1
  126.  
  127.         move.l    filereq(a4),a0
  128.         move.l    rtfi_Dir(a0),d0
  129.         beq.s    no_slash
  130.         move.l    d0,a0
  131.         move.l    rtfl_Name(a6),d1
  132.         beq.s    nextname
  133.         
  134. bytecopy:    move.b    (a0)+,(a1)+
  135.         bne.s    bytecopy
  136.         cmp.b    #":",-2(a1)
  137.         bne.s    add_slash
  138.         tst.b    -(a1)
  139.         bra.s    no_slash
  140. add_slash:    tst.b    -(a1)
  141.         move.b    #"/",(a1)+
  142. no_slash:    move.l    d1,a0
  143. bytecopy2:    move.b    (a0)+,(a1)+
  144.         bne.s    bytecopy2
  145.         clr.b    (a1)+
  146.         move.l    a5,d0
  147.  
  148. *-------------- d0.l = final filename..
  149.  
  150.         bsr.s    process            ;process files in linked list.
  151.         tst.l    d0            ;abort processing of files??
  152.         bne.s    aborted
  153.  
  154. nextname    move.l    rtfl_Next(a6),a6
  155.         cmp.l    #0,a6
  156.         bne.s    nextfile
  157.  
  158.         move.l    TotalGain(a4),d0
  159.         lea    TotGain.Txt(pc),a0
  160.         bsr.w    putstr            ;d0.l = Gained bytes
  161.         bsr.w    H2A
  162.  
  163.         lea    Done.txt(pc),a0
  164.         bsr.w    putstr
  165.  
  166. *-------------- free list of filenames..
  167.  
  168. freelist
  169. aborted        move.l    flist(a4),a0
  170.         move.l    _RTBase(a4),a6
  171.         CALL    rtFreeFileList
  172.  
  173. *-------------- free file requesters..
  174.  
  175. ok16        move.l    filereq(a4),a1
  176.         CALL    rtFreeRequest
  177.  
  178. *-------------- close reqtools library..
  179.  
  180. closelibs
  181. ok17        move.l    _RTBase(a4),a1
  182.         move.l    4.w,a6
  183.         CALL    CloseLibrary
  184.  
  185. *-------------- close dos library..
  186.  
  187. closedos:    move.l    _DOSBase(a4),a1
  188.         move.l    4.w,a6
  189.         CALL    CloseLibrary
  190.  
  191. NoLib:        lea    vars_SIZEOF(a4),a4        * Restore stack memory!
  192.         unlk    a4
  193.         moveq    #0,d0
  194.         rts
  195.  
  196.  
  197.  
  198.  
  199. process        movem.l    d1-d7/a0-a6,-(sp)
  200.  
  201. *-------------- Attempt to load this file..
  202.  
  203. LoadFile:    move.l    d0,-(sp)
  204.         lea    Load.txt(pc),a0
  205.         bsr.w    putstr
  206.         move.l    (sp),a0
  207.         bsr.w    putstr
  208.         lea    LF.txt(pc),a0
  209.         bsr.w    putstr
  210.         move.l    (sp),a0
  211.         bsr.w    LoadDOSFile
  212.         move.l    (sp)+,a0
  213.         tst.l    d0
  214.         beq.s    Load_Okay
  215.  
  216.         cmp.l    #-2,d0
  217.         bne.s    notf
  218.  
  219. *-------------- out of memory
  220.  
  221.         move.l    a0,-(sp)
  222.         lea    ErrorMem.txt(pc),a0
  223.         bsr.w    putstr
  224.         move.l    (sp)+,a0
  225.         bra.w    nosave
  226.  
  227. *-------------- file not found
  228. notf
  229.         move.l    a0,-(sp)
  230.         lea    ErrorLoad.txt(pc),a0
  231.         bsr.w    putstr
  232.         move.l    (sp)+,a0
  233.         bra.w    nosave
  234.  
  235. Load_Okay:
  236.         move.l    a0,-(sp)
  237.         lea    Packing.txt(pc),a0
  238.         bsr.w    putstr
  239.         move.l    (sp)+,a0
  240.  
  241.         bsr.w    sort_destname
  242.  
  243.         move.l    d0,-(sp)
  244.         move.l    ProgBuff(a4),a0
  245.         move.l    ProgSize(a4),d0
  246.         move.l    #11,d1
  247.         bsr.w    _compress_slow
  248.         move.l    (sp)+,a0        ;a0=filename..
  249.  
  250.         move.l    a0,Savename(a4)
  251.         move.l    d0,PackedSize(a4)
  252.         bne.s    packedokay    
  253.                     
  254.         lea    ErrorGain.txt(pc),a0
  255.         bsr.w    putstr
  256.         bra.w    nosave
  257.  
  258. packedokay
  259. *-------------- show packed statistics..
  260.  
  261.         move.l    ProgSize(a4),d0
  262.         lea    OrigLength.Txt(pc),a0
  263.         bsr.w    putstr
  264.         bsr.w    H2A
  265.  
  266.         move.l    PackedSize(a4),d0
  267.         lea    PakLength.Txt(pc),a0
  268.         bsr.w    putstr
  269.         bsr.w    H2A
  270.  
  271.         move.l    ProgSize(a4),d0        ;original size
  272.         sub.l    PackedSize(a4),d0    ;d0.l = gain in bytes.
  273.         add.l    d0,TotalGain(a4)
  274.  
  275.         lea    Gained.Txt(pc),a0
  276.         bsr.w    putstr            ;d0.l = Gained bytes
  277.         bsr.w    H2A
  278.  
  279.         move.l    PackedSize(a4),d0    ;d0.l = Packed size
  280.         move.l    ProgSize(a4),d1        ;d1.l = Original size
  281.         move.l    d1,d2
  282.         sub.l    d0,d2
  283.         move.l    d1,d3
  284. getgain1:    tst.l    d2
  285.         bmi.s    getgain2
  286.         tst.l    d3
  287.         bmi.s    getgain2
  288.         add.l    d2,d2
  289.         add.l    d3,d3
  290.         bra.s    getgain1
  291.  
  292. getgain2:    lsr.l    #1,d2
  293.         lsr.l    #1,d3
  294.         clr.w    d2
  295.         clr.w    d3
  296.         swap    d2
  297.         swap    d3
  298.         mulu    #100,d2
  299.         divu    d3,d2
  300.  
  301. *-------------- d2.w = % gain
  302. ;        d0.l = old size
  303. ;        d1.l = new size
  304.  
  305.         lea    Percentage.Txt(pc),a0
  306.         bsr.w    putstr            ;d0.l = Gained bytes
  307.  
  308.         moveq    #0,d0
  309.         move.w    d2,d0
  310.         move.l    d2,-(sp)
  311.         lea    valbuf(a4),a0
  312.         bsr.w    hex2asc
  313.         bsr.w    putstr
  314.  
  315.         lea    valbuf(a4),a0
  316.         move.w    #$2E00,(a0)
  317.         bsr.w    putstr
  318.  
  319.         lea    valbuf(a4),a0
  320.         move.l    (sp)+,d0
  321.         clr.w    d0
  322.         swap    d0
  323.         bsr.w    hex2asc
  324.         sf.b    2(a0)
  325.         bsr.w    putstr
  326.  
  327.         lea    valbuf(a4),a0
  328.         move.w    #$2500,(a0)
  329.         bsr.w    putstr
  330.  
  331.         lea    LF.txt(pc),a0
  332.         bsr.w    putstr
  333.  
  334. *-------------- Attempt to save this file..
  335.  
  336. SaveFile:
  337.         lea    Save.txt(pc),a0
  338.         bsr.w    putstr
  339.         move.l    Savename(a4),a0
  340.         bsr.w    putstr
  341.         lea    LF.txt(pc),a0
  342.         bsr.b    putstr
  343.  
  344. *-------------- write file out..
  345.  
  346.         move.l    Savename(a4),a0
  347.         move.l    ProgBuff(a4),a1
  348.         move.l    PackedSize(a4),d1
  349.         bsr.w    SaveDOSFile
  350.         tst.l    d0
  351.         beq.s    Save_Okay
  352.  
  353.         lea    ErrorSave.txt(pc),a0
  354.         bsr.b    putstr
  355. Save_Okay
  356.  
  357. nosave        bsr.w    FreeDOSFile
  358.  
  359. *-------------- abort processing of files if CTRL+C was pressed...
  360.  
  361.         bsr.b    _CheckBreak
  362.  
  363.         movem.l    (sp)+,d1-d7/a0-a6
  364.         rts
  365.  
  366.  
  367. _CheckBreak:    moveq    #0,d0
  368.         moveq    #0,d1
  369.         bset.l    #SIGBREAKB_CTRL_C,d1    ;check for CTRL_C
  370.         move.l    _DOSBase(a4),a6
  371.         CALL    CheckSignal        ;did user signal a break??
  372.  
  373.         btst.l    #SIGBREAKB_CTRL_C,d0
  374.         beq.s    NoBreak
  375. WasBroken:    moveq    #1,d0            ;yes.. user tried to break..
  376.         rts
  377.  
  378. NoBreak:    moveq    #0,d0            ;no break
  379.         rts
  380.  
  381.  
  382.  
  383.  
  384. sort_destname:    lea    volpath(a4),a3
  385.         lea    finalname(a4),a5
  386.         move.l    a5,a1
  387.         move.l    a3,a0
  388.         move.l    rtfl_Name(a6),d1
  389.         beq.w    nextname
  390. _bytecopy:    move.b    (a0)+,(a1)+
  391.         bne.s    _bytecopy
  392.         cmp.b    #":",-2(a1)
  393.         bne.s    _add_slash
  394.         tst.b    -(a1)
  395.         bra.s    _no_slash
  396. _add_slash:    tst.b    -(a1)
  397.         move.b    #"/",(a1)+
  398. _no_slash:    move.l    d1,a0
  399. _bytecopy2:    move.b    (a0)+,(a1)+
  400.         bne.s    _bytecopy2
  401.         clr.b    (a1)+
  402.         move.l    a5,d0
  403.         rts
  404.  
  405. *-------------- returns d0.l = filename..
  406.  
  407. * Putstr
  408. *
  409. * Sends a ascii text string to current console output
  410. * 
  411. * $Inputs:    a0.l = String ptr (null terminated)
  412.  
  413. putstr:        movem.l    d0-d7/a1-a6,-(sp)
  414.         move.l    a0,d2
  415.         moveq    #-1,d3            ;d4=0
  416. getlen3        addq.l    #1,d3            ;increase string length by 1
  417.         tst.b    (a0)+            ;increase position
  418.         bne.s    getlen3            ;nope not found, so keep on
  419.         move.l    _DOSBase(a4),a6
  420.         CALL    Output            ;get output base
  421.         move.l    d0,d1
  422.         CALL    Write            ;print error msg to cli
  423.         movem.l    (sp)+,d0-d7/a1-a6
  424.         rts
  425.                 
  426. * _LoadDOSFile :- Loads an AmigaDOS file from any device into memory
  427. *
  428. * In        a0 (.L)    = Filename
  429. *
  430. * Out        d0 (.L) = Result Code (0=File Ok,-1=Load Failed!)    
  431. *        d1 (.L) = Length
  432.     
  433. LoadDOSFile:    movem.l    d2-d7/a0/a2-a6,-(sp)
  434.         clr.l    ProgHandle(a4)
  435.         clr.l    ProgBuff(a4)
  436.         clr.l    ProgSize(a4)
  437.  
  438. *-------------- Open file
  439.         move.l    a0,d1            ;get filename
  440.         move.l    #MODE_OLDFILE,d2
  441.         move.l    _DOSBase(a4),a6
  442.         CALL    Open            ;open file
  443.         move.l    d0,ProgHandle(a4)
  444.         beq.s    NotFound
  445.  
  446. *-------------- Get Length of file
  447.  
  448.         move.l    d0,d5            ;ProgHandle
  449.         move.l    d5,d1            ;file handle
  450.         moveq    #0,d2
  451.         moveq    #1,d3
  452.         CALL    Seek            ;seek start of file
  453.         move.l    d5,d1            ;file handle
  454.         moveq    #0,d2
  455.         moveq    #-1,d3
  456.         CALL    Seek            ;seek end of file
  457.         move.l    d0,ProgSize(a4)
  458.  
  459. *-------------- Allocate Memory for file
  460.  
  461.         move.l    4.w,a6            ;get execbase
  462.         move.l    #MEMF_PUBLIC,d1        ;we want public mem
  463.         CALL    AllocVec        ;allocate it...
  464.         move.l    d0,ProgBuff(a4)        ;save base
  465.         beq.b    TooBig            ;fail?
  466.  
  467. *-------------- Load in whole file
  468.                 
  469.         move.l    ProgHandle(a4),d1
  470.         move.l    ProgBuff(a4),d2
  471.         move.l    ProgSize(a4),d3
  472.         move.l    _DOSBase(a4),a6
  473.         CALL    Read            ;read file
  474.  
  475. *-------------- Close file
  476.  
  477. CloseFile:    move.l    ProgHandle(a4),d1
  478.         CALL    Close            ;close file
  479.  
  480.         move.l    ProgSize(a4),d1        ;d1=ProgSize
  481.         move.l    ProgBuff(a4),a1        
  482.  
  483.         movem.l    (sp)+,d2-d7/a0/a2-a6
  484.         moveq    #0,d0            ;resultcode (okay)
  485.         rts
  486.  
  487. NotFound:    movem.l    (sp)+,d2-d7/a0/a2-a6
  488.         moveq    #-1,d0            ;file not found error-code
  489.         rts
  490.  
  491. TooBig:        move.l    ProgHandle(a4),d1
  492.         move.l    _DOSBase(a4),a6
  493.         CALL    Close            ;close file
  494.         movem.l    (sp)+,d2-d7/a0/a2-a6
  495.         moveq    #-2,d0            ;file too big error-code
  496. NotAlloc    rts
  497.  
  498.  
  499.  
  500.  
  501. *-------------- Free Memory for DOSFile
  502.  
  503. FreeDOSFile:    move.l    (AbsExecBase).w,a6    ;get execbase
  504.  
  505.         move.l    ProgBuff(a4),d0        ;ptr to our RS.Variables base
  506.         beq.s    NotAlloc1
  507.         move.l    d0,a1
  508.         CALL    FreeVec            ;free the memory
  509.         clr.l    ProgBuff(a4)
  510.         clr.l    ProgSize(a4)
  511.  
  512. NotAlloc1:    rts
  513.  
  514. * SaveMem2File
  515. *
  516. * $Inputs:    a0.l    = Filename
  517. *        a1.l    = Mem Address
  518. *        d1.l    = Save Length
  519. *
  520. * $Outputs:    d0.l    = 0 - success
  521. *        d0.l    = 1 - failure
  522.  
  523. SaveDOSFile:    movem.l    d2-d7/a0-a6,-(sp)
  524.         move.l    a1,d5            ;progbuffer
  525.         move.l    d1,d6            ;proglength
  526.         beq.s    _NoGain
  527.  
  528.         move.l    a0,d1            ;filename
  529.         move.l    #MODE_NEWFILE,d2
  530.         move.l    _DOSBase(a4),a6
  531.         CALL    Open
  532.         move.l    d0,d7
  533.         beq.b    _SaveError
  534.  
  535.         move.l    d7,d1            ;fh...
  536.         move.l    d5,d2            ;adr
  537.         move.l    d6,d3            ;length
  538.         CALL    Write            ;write file
  539.  
  540.         move.l    d7,d1
  541.         CALL    Close            ;close file
  542. _NoGain:    movem.l    (sp)+,d2-d7/a0-a6
  543.         moveq    #0,d0
  544.         rts
  545. _SaveError:    movem.l    (sp)+,d2-d7/a0-a6
  546.         moveq    #1,d0
  547.         rts
  548.  
  549.  
  550.  
  551. H2A:        lea    valbuf(a4),a0
  552. Hex2ASCIIDec:    bsr.b    hex2asc
  553.         bsr.w    putstr
  554.         lea    LFs.Txt(pc),a0
  555.         bra.w    putstr
  556.  
  557. hex2asc        lea    hextable(pc),a1
  558.         move.b    #"0",d6            ; constant
  559.         moveq    #9-1,d4
  560.         move.b    #" ",d5            ; replace leading 0's
  561. ccloop        move.l    (a1)+,d1
  562.         cmp.l    d1,d0
  563.         bcs.s    get3
  564.          move.w    #32-1,d3
  565.         moveq    #0,d2
  566. get1        add.l    d0,d0
  567.         roxl.l    #1,d2
  568.         cmp.l    d1,d2
  569.         bcs.s    get2
  570.         sub.l    d1,d2
  571.         addq.l    #1,d0
  572. get2        dbra    d3,get1
  573.         add.b    d6,d0
  574.         move.b    d0,(a0)+
  575.         move.l    d2,d0
  576.         move.b    d6,d5
  577.         bra.s    get4
  578.  
  579. get3        move.b    d5,(a0)+
  580. get4        dbra    d4,ccloop
  581.          add.b    d6,d0
  582.         move.b    d0,(a0)+
  583.         lea    valbuf(a4),a0
  584. .getstart    cmp.b    #" ",(a0)+
  585.         beq.s    .getstart
  586.         tst.b    -(a0)
  587.         rts
  588.  
  589. hextable    dc.l    1000000000
  590.         dc.l    100000000
  591.         dc.l    10000000
  592.         dc.l    1000000
  593.         dc.l    100000
  594.         dc.l    10000
  595.         dc.l    1000
  596.         dc.l    100
  597.         dc.l    10
  598.         dc.l    1
  599.         dc.l    0
  600.  
  601. * ATN Header (Imploder)
  602. *
  603. * In:    a0.l=*buffer
  604. *    d0.l=data length
  605. *    d1.l=crunch mode
  606. *
  607. * Out:    d0.l=<>0:crunched length
  608.  
  609. CacheFlush:    movem.l    d0-d7/a0-a6,-(sp)
  610.         move.l    4.w,a6
  611.         cmp.w    #37,$14(a6)
  612.         bcs.s    no_flush
  613.         CALL    CacheClearU
  614. no_flush:    movem.l    (sp)+,d0-d7/a0-a6
  615.         rts
  616.  
  617.         cnop    0,4
  618. _compress_slow:    movem.l    d2-d7/a2-a6,-(sp)
  619.  
  620.         moveq    #88-1,d2
  621. atn01:        clr.w    -(sp)
  622.         dbf    d2,atn01
  623.         move.l    sp,a6
  624.  
  625.         cmp.l    #$40,d0
  626.         blo.w    atn23
  627.  
  628.         scs    (a6)
  629.         move.l    a0,10(a6)
  630.         move.l    a0,$22(a6)
  631.         move.l    a0,$26(a6)
  632.         move.l    d0,$12(a6)
  633.         add.l    d0,a0
  634.         move.l    a0,14(a6)
  635.         lea    atntab0(pc),a0
  636.         lsl.w    #2,d1
  637.         move.l    0(a0,d1.w),d1
  638.         addq.l    #1,d1
  639.         cmp.l    d0,d1
  640.         bls.s    atn03
  641.  
  642.         move.l    d0,d1
  643.         subq.l    #1,d1
  644. atn03:        move.l    d1,$1A(a6)
  645.         subq.l    #1,d1
  646.         moveq    #0,d0
  647. atn04:        cmp.l    (a0)+,d1
  648.         bls.s    atn05
  649.         addq.b    #1,d0
  650.         bra.s    atn04
  651.  
  652. atn05:        move.b    d0,1(a6)
  653.         lea    $A4(a6),a1
  654.         moveq    #12,d1
  655.         mulu    d1,d0
  656.         lea    atntab1(pc),a0
  657.         add.l    d0,a0
  658.         subq.w    #1,d1
  659. atn06:        move.b    (a0)+,(a1)+
  660.         dbf    d1,atn06
  661.  
  662.         lea    $74(a6),a1
  663.         lea    $A4(a6),a0
  664.         moveq    #12-1,d1
  665. atn07:        move.b    (a0)+,d0
  666.         moveq    #0,d2
  667.         bset    d0,d2
  668.         move.l    d2,(a1)+
  669.         dbf    d1,atn07
  670.  
  671.         lea    $74(a6),a0
  672.         lea    $84(a6),a1
  673.         moveq    #8-1,d1
  674. atn08:        move.l    (a0)+,d0
  675.         add.l    d0,(a1)+
  676.         dbf    d1,atn08
  677.  
  678.         tst.b    (a6)
  679.         beq.s    atn11
  680.  
  681.         lea    $74(a6),a1
  682.         moveq    #8-1,d0
  683. atn09:        move.l    (a1)+,d1
  684.         move.w    d1,(a2)+
  685.         dbf    d0,atn09
  686.  
  687.         lea    $A4(a6),a1
  688.         moveq    #12-1,d0
  689. atn10:        move.b    (a1)+,(a2)+
  690.         dbf    d0,atn10
  691.  
  692. atn11:        move.b    #7,$2D(a6)
  693. atn12:
  694.         bsr.w    atn28
  695.         beq.s    atn15
  696.  
  697.         bsr.w    atn55
  698.         bne.s    atn13
  699.  
  700.         lea $1e(a6),a5
  701.         addq.l #1,(a5)+        ;$1e
  702.         move.l (a5),a0        ;$22
  703.         addq.l #1,(a5)+        ;$22
  704.         move.l (a5),a1        ;$26
  705.         move.b (a0),(a1)
  706.         addq.l #1,(a5)        ;$26
  707.         addq.l #1,$30(a6)    ;$30    
  708.  
  709.         cmp.l #$4012,$30(a6)
  710.         blo.s    atn12
  711.         bra.s    atn15
  712.  
  713. atn13:        move.b    $5C(a6),d0
  714.         move.l    $60(a6),d1
  715.         bsr.w    atn37
  716.         move.b    $5E(a6),d0
  717.         move.w    $66(a6),d1
  718.         bsr.w    atn37
  719.         move.b    $5D(a6),d0
  720.         move.w    $64(a6),d1
  721.         cmp.b    #13,d0
  722.         bne.s    atn14
  723.         move.l    $26(a6),a0
  724.         move.b    d1,(a0)+
  725.         move.l    a0,$26(a6)
  726.         moveq    #5,d0
  727.         moveq    #$1F,d1
  728.  
  729. atn14:        bsr.w    atn37
  730.         moveq    #0,d0
  731.         move.l d0,$30(a6)    ;clr.l    $30(a6)
  732.         move.b    $2E(a6),d0
  733.         add.l    d0,$22(a6)
  734.         bra.b    atn12
  735.  
  736.         cnop    0,4
  737. atn15:        lea $1e(a6),a5
  738.         addq.l #1,(a5)+        ;$1e
  739.         move.l (a5),a0        ;$22
  740.         addq.l #1,(a5)        ;$22
  741.         move.l (a5)+,d0        ;$22
  742.         move.l (a5),a1        ;$26
  743.         move.b (a0),(a1)
  744.         addq.l #1,(a5)        ;$26
  745.         addq.l #1,$30(a6)    ;$30
  746.  
  747.         cmp.l    14(a6),d0
  748.         bne.s    atn15
  749.  
  750.         tst.b    (a6)
  751.         bne.w    atn19
  752.         move.l    $26(a6),d0
  753.         sub.l    10(a6),d0
  754.         moveq    #12,d1
  755.         cmp.l    d1,d0        ;cmp.l #12,d0
  756.         blo.w    atn23
  757.  
  758.         move.l    $12(a6),d1
  759.         sub.l    d0,d1
  760.         moveq    #$36,d7
  761.         cmp.l    d7,d1        ;cmp.l    #$36,d1
  762.         bls.w    atn23
  763.         move.l    10(a6),a1
  764.         move.l    $26(a6),a0
  765.         move.w    #$ff00,d7    ;move.l    #$FF00,d7
  766.         btst    #0,d0
  767.         beq.s    atn16
  768.         moveq    #0,d7
  769.         addq.l    #1,d0
  770.         clr.b    (a0)+
  771. atn16:        move.l    (a1),8(a0)
  772.         move.l    #HeaderID,(a1)
  773.         move.l    4(a1),4(a0)
  774.         move.l    $12(a6),4(a1)
  775.         move.l    8(a1),(a0)
  776.         move.l    d0,8(a1)
  777.         moveq    #$2e,d1
  778.         add.l    d1,d0        ;add.l    #$2E,d0
  779.         move.l    d0,$16(a6)
  780.         move.l    $30(a6),12(a0)
  781.         move.b    $2C(a6),d1
  782.         and.w    #$FE,d1
  783.         move.b    $2D(a6),d0
  784.         bset    d0,d1
  785.         or.w    d7,d1
  786.         move.w    d1,$10(a0)
  787.  
  788.         lea    $74(a6),a1
  789.         lea    $12(a0),a0
  790.         moveq    #8-1,d0
  791. atn17:        move.l    (a1)+,d1
  792.         move.w    d1,(a0)+
  793.         dbf    d0,atn17
  794.  
  795.         lea    $A4(a6),a1
  796.         moveq    #12-1,d0
  797. atn18:        move.b    (a1)+,(a0)+
  798.         dbf    d0,atn18
  799.         bra.s    atn23
  800.  
  801.         cnop    0,4
  802. atn19:        move.l    $26(a6),d0
  803.         sub.l    10(a6),d0
  804.         move.l    $12(a6),d1
  805.         sub.l    d0,d1
  806.         moveq #6,d2
  807.         cmp.l d2,d1        ;cmp.l    #6,d1
  808.         bls.s    atn23
  809.  
  810.         move.b    $2C(a6),d1
  811.         and.b    #$FE,d1
  812.         move.b    $2D(a6),d2
  813.         bset    d2,d1
  814.         move.l    $26(a6),a0
  815.         btst    #0,d0
  816.         beq.s    atn20
  817.         move.b    d1,(a0)+
  818.         move.l    $30(a6),(a0)
  819.         bra.s    atn21
  820.  
  821.         cnop    0,4
  822. atn20:        move.l    $30(a6),(a0)+
  823.         move.b    d1,(a0)
  824. atn21:        addq.l    #5,d0
  825.         move.l    d0,$16(a6)
  826.         bra.s    atn23
  827.  
  828. atn22:        moveq    #-1,d0
  829.         bra.s    atn24
  830.  
  831.         cnop    0,4
  832. atn23:        move.l    $16(a6),d0
  833. atn24:        moveq    #88-1,d2
  834. atn25:        clr.w    (sp)+
  835.         dbf    d2,atn25
  836.  
  837.         movem.l    (sp)+,d2-d7/a2-a6
  838.         bsr.w    CacheFlush
  839.         tst.l    d0
  840.         rts
  841.  
  842. atntab0:    dc.l    128
  843.         dc.l    256
  844.         dc.l    512
  845.         dc.l    1024
  846.         dc.l    1792
  847.         dc.l    3328
  848.         dc.l    5376
  849.         dc.l    9472
  850.         dc.l    20736
  851.         dc.l    37376
  852.         dc.l    67840
  853.         dc.l    67840
  854.  
  855. atntab1:    dc.l    $5050505,$5050505,$6060606,$5060707,$6060606,$7070606
  856.         dc.l    $5060707,$7070707,$8080808,$5060708,$7070808,$8080909
  857.         dc.l    $6070708,$7080909,$8090A0A,$6070708,$709090A,$80A0B0B
  858.         dc.l    $6070808,$709090A,$80A0B0C,$6070808,$709090A,$90A0C0D
  859.         dc.l    $6070708,$709090C,$90A0C0E,$6070809,$7090A0C,$90B0D0F
  860.         dc.l    $6070808,$70A0B0B,$90C0D10,$6080809,$70B0C0C,$90D0E11
  861.  
  862. atntab2:    dc.l    $2060E,$1020304
  863.  
  864. atntab3:    dc.l    $1010101,$2030304,$405070E
  865.  
  866. atntab4:    dc.l    $20002
  867.         dc.l    $20002
  868.         dc.l    $6000A
  869.         dc.l    $A0012
  870.         dc.l    $16002A
  871.         dc.l    $8A4012
  872.  
  873.         cnop    0,4
  874. atn28:        move.l    $22(a6),a5
  875.         move.l    14(a6),d4
  876.         move.l    a5,d0
  877.         addq.l    #1,d0
  878.         add.l    $1A(a6),d0
  879.         cmp.l    d4,d0
  880.         bls.s    atn29
  881.         move.l    d4,d0
  882.         move.l    d0,d1
  883.         sub.l    a5,d1
  884.         cmp.l    #3,d1
  885.         bcc.s    atn29
  886.         moveq    #0,d0
  887.         rts
  888.  
  889.         cnop    0,4
  890. atn29:        move.l    d0,d5
  891.         move.l    a5,a2
  892.         addq.l    #1,a2
  893.         move.l    a2,a4
  894.         moveq    #1,d7
  895.         move.b    (a5),d3
  896.  
  897.         lea    $34(a6),a3
  898. atn30:        cmp.b    (a2)+,d3
  899.         beq.s    atn32
  900.         cmp.b    (a2)+,d3
  901.         beq.s    atn32
  902.         cmp.b    (a2)+,d3
  903.         beq.s    atn32
  904.         cmp.b    (a2)+,d3
  905.         beq.s    atn32
  906.         cmp.b    (a2)+,d3
  907.         beq.s    atn32
  908.         cmp.b    (a2)+,d3
  909.         beq.s    atn32
  910.         cmp.b    (a2)+,d3
  911.         beq.s    atn32
  912.         cmp.b    (a2)+,d3
  913.         beq.s    atn32
  914.         cmp.b    (a2)+,d3
  915.         beq.s    atn32
  916.         cmp.b    (a2)+,d3
  917.         beq.s    atn32
  918.         cmp.b    (a2)+,d3
  919.         beq.s    atn32
  920.         cmp.b    (a2)+,d3
  921.         beq.s    atn32
  922.         cmp.b    (a2)+,d3
  923.         beq.s    atn32
  924.         cmp.b    (a2)+,d3
  925.         beq.s    atn32
  926.         cmp.b    (a2)+,d3
  927.         beq.s    atn32
  928.         cmp.b    (a2)+,d3
  929.         beq.s    atn32
  930.         cmp.l    a2,d5
  931.         bhi.s    atn30
  932.  
  933. atn31:        moveq    #-1,d0
  934.         rts
  935.  
  936.         cnop    0,4
  937. atn32:        cmp.l    a2,d5
  938.         bls.s    atn31
  939.         move.l    a4,a0
  940.         move.l    a2,a1
  941.         cmpm.b    (a0)+,(a1)+
  942.         bne.s    atn30
  943.         cmpm.b    (a0)+,(a1)+
  944.         bne.s    atn35
  945.         cmpm.b    (a0)+,(a1)+
  946.         bne.s    atn34
  947.  
  948.         move.w    #252-1,d0
  949. atn33:        cmpm.b    (a0)+,(a1)+
  950.         dbne    d0,atn33
  951.  
  952. atn34:        cmp.l    d4,a1
  953.         bls.s    atn35
  954.         move.l    d4,a1
  955.  
  956. atn35:        move.l    a1,d6
  957.         sub.l    a2,d6
  958.         cmp.w    d6,d7
  959.         bcc.s    atn30
  960.         move.w    d6,d7
  961.         cmp.w    #8,d6
  962.         bhi.s    atn36
  963.         tst.b    -2(a3,d6.w)
  964.         bne.w    atn30
  965.         move.b    d6,-2(a3,d6.w)
  966.         move.l    a2,d0
  967.         sub.l    a5,d0
  968.         subq.l    #2,d0
  969.         move.w    d6,d1
  970.         lsl.w    #2,d1
  971.         move.l    d0,0(a3,d1.w)
  972.         bra.w    atn30
  973.  
  974.         cnop    0,4
  975. atn36:        move.b    d6,7(a3)
  976.         move.l    a2,d0
  977.         sub.l    a5,d0
  978.         subq.l    #2,d0
  979.         move.l    d0,$24(a3)
  980.         cmp.b    #$FF,d6
  981.         bne.w    atn30
  982.         bra.s    atn31
  983.  
  984.         cnop    0,4
  985. atn37:        move.b    $2C(a6),d2
  986.         move.b    $2D(a6),d3
  987.         move.l    $26(a6),a0
  988. atn38:        lsr.l    #1,d1
  989.         roxr.b    #1,d2
  990.         subq.b    #1,d3
  991.         bpl.s    atn39
  992.         moveq    #7,d3
  993.         move.b    d2,(a0)+
  994.         moveq    #0,d2
  995. atn39:        subq.b    #1,d0
  996.         bne.s    atn38
  997.         move.l    a0,$26(a6)
  998.         move.b    d3,$2D(a6)
  999.         move.b    d2,$2C(a6)
  1000.         rts
  1001.  
  1002.         cnop    0,4
  1003. atn40:        and.l    #$FF,d0
  1004.         cmp.b    #13,d0
  1005.         bhi.s    atn42
  1006.         cmp.b    #5,d0
  1007.         bhi.s    atn41
  1008.         lea    atntab2(pc),a0
  1009.         move.b    -2(a0,d0.w),$71(a6)
  1010.         move.b    2(a0,d0.w),$69(a6)
  1011.         bra.s    atn44
  1012.  
  1013.         cnop    0,4
  1014. atn41:        subq.b    #6,d0
  1015.         or.b    #$F0,d0
  1016.         move.b    d0,$71(a6)
  1017.         move.b    #8,$69(a6)
  1018.         bra.s    atn43
  1019.  
  1020.         cnop    0,4
  1021. atn42:        move.b    #$1F,$70(a6)
  1022.         move.b    d0,$71(a6)
  1023.         move.b    #13,$69(a6)
  1024. atn43:        moveq    #5,d0
  1025. atn44:        subq.b    #2,d0
  1026.         move.l    $30(a6),d2
  1027.         lea    atntab3(pc),a1
  1028.         lea    atntab4(pc),a0
  1029.         add.l    d0,a0
  1030.         add.l    d0,a0
  1031.         cmp.w    (a0),d2
  1032.         bcc.s    atn45
  1033.         move.b    0(a1,d0.w),d6
  1034.         move.b    d6,d3
  1035.         addq.b    #1,d3
  1036.         sf $73(a6)        ;move.b    #0,$73(a6)
  1037.         moveq    #0,d4
  1038.         bra.s    atn48
  1039.  
  1040.         cnop    0,4
  1041. atn45:        cmp.w    8(a0),d2
  1042.         bcc.s    atn46
  1043.         move.b    4(a1,d0.w),d6
  1044.         move.b    d6,d3
  1045.         addq.b    #2,d3
  1046.         move.b    #2,$73(a6)
  1047.         move.w    (a0),d4
  1048.         bra.s    atn48
  1049.  
  1050.         cnop    0,4
  1051. atn46:        cmp.w    $10(a0),d2
  1052.         blo.s    atn47
  1053.         moveq    #0,d0
  1054.         rts
  1055.  
  1056.         cnop    0,4
  1057. atn47:        move.b    8(a1,d0.w),d6
  1058.         move.b    d6,d3
  1059.         addq.b    #2,d3
  1060.         move.b    #3,$73(a6)
  1061.         move.w    8(a0),d4
  1062. atn48:        move.b    d3,$6A(a6)
  1063.         sub.w    d4,d2
  1064.         moveq    #$10,d5
  1065.         sub.b    d6,d5
  1066.         lsl.w    d5,d2
  1067. atn49:        add.w    d2,d2
  1068.         roxl    $72(a6)
  1069.         subq.b    #1,d6
  1070.         bne.s    atn49
  1071.         lea    $A4(a6),a1
  1072.         lea    $74(a6),a0
  1073.         add.w    d0,a0
  1074.         add.w    d0,a0
  1075.         add.w    d0,a0
  1076.         add.w    d0,a0
  1077.  
  1078.         cmp.l    (a0),d1
  1079.         bcc.s    atn50
  1080.         move.b    0(a1,d0.w),d6
  1081.         move.b    d6,d3
  1082.         addq.b    #1,d3
  1083.         moveq    #0,d7
  1084.         move.l    d7,d4
  1085.         bra.s    atn53
  1086. atn50:        cmp.l    $10(a0),d1
  1087.         bcc.s    atn51
  1088.         move.b    4(a1,d0.w),d6
  1089.         move.b    d6,d3
  1090.         addq.b    #2,d3
  1091.         moveq    #2,d7
  1092.         move.l    (a0),d4
  1093.         bra.s    atn53
  1094. atn51:        cmp.l    $20(a0),d1
  1095.         blo.s    atn52
  1096.         moveq    #0,d0
  1097.         rts
  1098.  
  1099.         cnop    0,4
  1100. atn52:        move.b    8(a1,d0.w),d6
  1101.         move.b    d6,d3
  1102.         addq.b    #2,d3
  1103.         moveq    #3,d7
  1104.         move.l    $10(a0),d4
  1105. atn53:        move.b    d3,$68(a6)
  1106.         sub.l    d4,d1
  1107.         moveq    #$20,d5
  1108.         sub.b    d6,d5
  1109.         lsl.l    d5,d1
  1110. atn54:        add.l    d1,d1
  1111.         addx.l    d7,d7
  1112.         subq.b    #1,d6
  1113.         bne.s    atn54
  1114.         move.l    d7,$6C(a6)
  1115.  
  1116.         moveq    #-1,d0
  1117.         rts
  1118.  
  1119.         cnop    0,4
  1120. atn55:        clr.w    $2A(a6)
  1121.         clr.b    $2E(a6)
  1122.         lea    $34(a6),a4
  1123.         lea    $3C(a6),a5
  1124. atn56:        move.l    (a5)+,d1
  1125.         move.b    (a4)+,d0
  1126.         beq.s    atn58
  1127.  
  1128.         bsr.w    atn40
  1129.         beq.s    atn58
  1130.  
  1131.         moveq    #0,d0
  1132.         moveq    #0,d1
  1133.         move.b    -1(a4),d0
  1134.         lsl.w    #3,d0
  1135.         add.b    $69(a6),d1
  1136.         add.b    $68(a6),d1
  1137.         add.b    $6A(a6),d1
  1138.         sub.w    d1,d0
  1139.         bmi.s    atn58
  1140.  
  1141.         cmp.w    $2A(a6),d0
  1142.         blo.s    atn58
  1143.         move.w    d0,$2A(a6)
  1144.         move.b    -1(a4),$2E(a6)
  1145.  
  1146.         lea    $5C(a6),a0
  1147.         lea    $68(a6),a1
  1148.         moveq    #13-1,d1
  1149. atn57:        move.b    (a1)+,(a0)+
  1150.         dbf    d1,atn57
  1151.  
  1152. atn58:        move.l    a4,d0
  1153.         sub.l    a6,d0
  1154.         cmp.w    #$3C,d0
  1155.         bne.s    atn56
  1156.         clr.l    -(a4)
  1157.         clr.l    -(a4)
  1158.         tst.w    $2E(a6)
  1159.         rts
  1160.  
  1161. H2H:        movem.l    d1-d2/a0-a1,-(sp)
  1162.         addq.l    #8,a0
  1163.         lea     hextab(pc),a1
  1164.         moveq   #8-1,d1
  1165. NextByte:    move.l    d0,d2
  1166.         and.l    #15,d2
  1167.         move.b    0(a1,d2.w),-(a0)
  1168.         lsr.l    #4,d0
  1169.         dbra    d1,NextByte
  1170.         movem.l    (sp)+,d1-d2/a0-a1
  1171.         rts
  1172.  
  1173. About.txt    dc.b    $1b,'c',$a
  1174.         dc.b    $1b,'[1mIMP!',$1b,'[22m ',$1b,'[33mData-Packer ',$1b,'[32m1.01',$1b,'[3m',$1b,'[31mQuick FrontEnd',$1b,'[23m',$1b,'[3m(Imploder Algorithm)',$1b,'[23m',$1b,'[3m',$1b,'[23m',$a
  1175.         dc.b    'Copyright © 1996. All Rights Are Reserved.',$a
  1176.         dc.b    'Assembly Date: Jan-96.',$a,$a
  1177.         dc.b    'NB: While packing use CTRL+C to abort the entire session!',$a,0
  1178. LFs.Txt:
  1179. LF.txt        dc.b    10,0
  1180. Load.txt    dc.b    10,'Loading file.. ',0
  1181. Save.txt    dc.b    10,'Saving file.. ',0
  1182. Packing.txt:    dc.b    10,'Packing file...',10
  1183.         dc.b    'Please wait..',10,0
  1184. NoPath.txt:    dc.b    10,'No Destination Path Specified!',10,0
  1185. ErrorMem.txt:    dc.b    'Error: Out Of Memory...',0
  1186. ErrorLoad.txt    dc.b    'Error: Skipping file, failed to load..',10,0
  1187. ErrorSave.txt    dc.b    'Error: Skipping file, failed to save..',10,0
  1188. ErrorGain.txt:    dc.b    'Error: Skipping file, No gain!!',10,0
  1189. OrigLength.Txt:    dc.b    10,'Original Data Length : ',0
  1190. PakLength.Txt:    dc.b    'Packed Data Length   : ',0
  1191. Gained.Txt:    dc.b    'Gained Bytes         : ',0
  1192. Percentage.Txt:    dc.b    'Percentage Gain      : ',0
  1193. TotGain.Txt:    dc.b    10,'Total Gain           : ',0
  1194. Done.txt:    dc.b    10,'Session Done...',10,0
  1195. Text89        dc.b    "Select Destination Path..",0
  1196. Text66        dc.b    "Select File(s)...",0
  1197.         even
  1198. Tags9        dc.l    RTFI_Flags,FREQF_MULTISELECT
  1199.         dc.l    TAG_END
  1200. Tags11        dc.l    RTFI_Flags,FREQF_NOFILES
  1201.         dc.l    TAG_END
  1202. DOSName        dc.b    'dos.library',0
  1203. ReqName        dc.b    'reqtools.library',0
  1204.         cnop    0,2
  1205. hextab        dc.b    '0123456789ABCDEF'
  1206.  
  1207.